home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / pxfstructfree.z / pxfstructfree
Encoding:
Text File  |  2002-10-03  |  3.3 KB  |  74 lines
  1. PXFSTRUCTFREE(3F)                                     Last changed: 1-22-99
  2.  
  3.  
  4. NNAAMMEE
  5.      PPXXFFSSTTRRUUCCTTFFRREEEE - Deletes the instance of the structure referenced by
  6.      _j_h_a_n_d_l_e
  7.  
  8. SSYYNNOOPPSSIISS
  9.      IINNTTEEGGEERR _j_h_a_n_d_l_e,, _i_e_r_r_o_r
  10.      CCAALLLL PPXXFFSSTTRRUUCCTTFFRREEEE ((_j_h_a_n_d_l_e,, _i_e_r_r_o_r))
  11.  
  12. IIMMPPLLEEMMEENNTTAATTIIOONN
  13.      UNICOS, UNICOS/mk, and IRIX systems
  14.  
  15. DDEESSCCRRIIPPTTIIOONN
  16.      On IRIX systems, this routine is in lliibbffoorrttrraann..ssoo which is linked by
  17.      default when compiling programs with the MIPSpro 7 Fortran 90 compiler
  18.      or when compiling programs with the --ccrraayylliibbss option to the MIPSpro
  19.      F77 compiler.
  20.  
  21.      The PPXXFFSSTTRRUUCCTTFFRREEEE routine deletes the instance of the structure
  22.      referenced by _j_h_a_n_d_l_e. This structure should have been created by
  23.      PPXXFFSSTTRRUUCCTTCCRREEAATTEE(3F).
  24.  
  25.      When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
  26.      UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
  27.      kind unless documented otherwise.  On UNICOS and UNICOS/mk, default
  28.      kind is KKIINNDD==88 for integer, real, complex, and logical arguments; on
  29.      IRIX, the default kind is KKIINNDD==44.
  30.  
  31.      The following are arguments to PPXXFFSSTTRRUUCCTTFFRREEEE():
  32.  
  33.      _j_h_a_n_d_l_e   An input integer variable.  _j_h_a_n_d_l_e is a handle for a
  34.                structure.
  35.  
  36.      _i_e_r_r_o_r    An output integer variable.  Upon successful completion of
  37.                PPXXFFSSTTRRUUCCTTFFRREEEE(()), _i_e_r_r_o_r is set to 0.  This routine will set
  38.                _i_e_r_r_o_r to EEBBAADDHHAANNDDLLEE if _j_h_a_n_d_l_e is an invalid handle (UNICOS
  39.                or UNICOS/mk systems only).
  40.  
  41. EEXXAAMMPPLLEESS
  42.                 program test
  43.                 integer jstat, ierr, ilen, imode, istino
  44.                 character*10 path
  45.           *  Create STRUCTURE to be used by stat()
  46.                 call pxfstructcreate('stat',jstat,ierr)
  47.                 if (ierr.ne.0) then
  48.                    print *,'FAIL: error from pxfstructcreate = ',ierr
  49.                 endif
  50.  
  51.           *  Fill STRUCTURE through stat()
  52.                 ilen = 0
  53.                 call pxfstat(path, ilen, jstat,ierr)
  54.                 if (ierr.ne.0) then
  55.                    print *,'FAIL: error from pxfstat = ',ierr
  56.                 endif
  57.           *  Retrieve components st_ino and mode from STRUCTURE
  58.                 call pxfintget(jstat,'st_ino',isino,ierr)
  59.                 call pxfintget(jstat,'mode',imode,ierr)
  60.                 print *, 'st_ino =',stino
  61.                 print *, 'mode =',mode
  62.           *  Free STRUCTURE
  63.                 call pxfstructfree(jstat,ierr)
  64.                 if (ierr.ne.0) then
  65.                    print *,'FAIL: error from pxfstructfree = ',ierr
  66.                 endif
  67.                 end
  68.  
  69. SSEEEE AALLSSOO
  70.      PPXXFFSSTTRRUUCCTTCCRREEAATTEE
  71.  
  72.      _A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed
  73.      version of this man page.
  74.